******************
**** Figure C1 ***
******************

use "$data/telephone_surveydata_ready" , clear


set scheme s1mono

cd "$temp"

hist q6comb, frac barwidth(0.4) ylabel(#10) title(How many people responsible citizens in Pristina?, size(medium)) plotregion(fcolor(white)) graphregion(color(white))  xlabel(1 "None" 2 "Few/Some" 3 "Half" 4 "Many" 5 "All") ytitle(Fraction of Respondents) plotregion(lcolor(black)) xtitle("") legend(off) graphregion(color(white) lwidth(none) lpattern(blank) ifcolor(white) ilcolor(white))
graph save q6comb.gph, replace

hist q7comb, frac barwidth(0.4) ylabel(#10) title(How many irresponsible citizens in Pristina?, size(msmall)) graphregion(color(white))  xlabel(1 "None" 2 "Few/Some" 3 "Half" 4 "Many" 5 "All") ytitle(Fraction of Respondents) plotregion(lcolor(black)) xtitle("") legend(off) graphregion(color(white) lwidth(none) lpattern(blank) ifcolor(white) ilcolor(white))
graph save q7comb.gph, replace

gr combine q6comb.gph q7comb.gph, col(2) imargin(medium) iscale(0.6)

graph export "$filepath/output_logs/figure c1.pdf", replace

cd "$temp"
erase q6comb.gph 
erase q7comb.gph

